home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbtool.exe / WAIT.BAS < prev    next >
BASIC Source File  |  1991-07-29  |  1KB  |  34 lines
  1. '----------------------------------------------------------
  2. '  PROGRAM: WAIT.BAS           PROGRAMMER: A. KELLETT
  3. '  DATE-WRITTEN: 07/29/91
  4. '  USING POWER BASIC V2.10A
  5. '
  6. '  THIS PROGRAM PAUSES -- GOOD FOR BAT FILES OR TO PAUSE
  7. '  A SCREEN DISPLAY BETWEEN PROGRAMS, ETC.
  8. '  VERSION: 0.00    LAST UPDATED: 00/00/00
  9. '----------------------------------------------------------
  10. VERSION$ = "0.00"
  11. NEWCOMMAND$ = UCASE$(COMMAND$)
  12. NEWVALUE = VAL(NEWCOMMAND$)
  13. IF LEN(NEWCOMMAND$) < 1 THEN
  14.    PAUSE = 1.5
  15. ELSE
  16.    SELECT CASE NEWVALUE
  17.       CASE 0       :PAUSE = 1.5
  18.       CASE < .5    :PAUSE = .5
  19.       CASE < 1.1   :PAUSE = 1.0
  20.       CASE < 1.6   :PAUSE = 1.5
  21.       CASE < 2.1   :PAUSE = 2.0
  22.       CASE < 2.6   :PAUSE = 2.5
  23.       CASE < 3.1   :PAUSE = 3.0
  24.       CASE < 3.6   :PAUSE = 3.5
  25.       CASE < 4.1   :PAUSE = 4.0
  26.       CASE < 4.6   :PAUSE = 4.5
  27.       CASE < 5.1   :PAUSE = 5.0
  28.       CASE < 5.6   :PAUSE = 5.5
  29.       CASE < 6.1   :PAUSE = 6.0
  30.    END SELECT
  31. END IF
  32. DELAY PAUSE
  33.  
  34.